home *** CD-ROM | disk | FTP | other *** search
/ Mastering Public Speaking / Mastering Public Speaking.iso / pc / Click Here.exe / Click Here.dxr / Internal_45_Open File Button.ls < prev    next >
Encoding:
Text File  |  2003-05-13  |  1.8 KB  |  48 lines
  1. global varGoingTo, varFilePath, varRateQuestionList, gRQ1, gRQ2, gRQ3, gRQ4, gRQ5, gRQ6, gRQ7, gRQ8, gRQ9, gRQ10, gRQ11, gRQ12, varMakeQuestionList, gMQ1, gMQ2, gMQ3, gMQ4, gMQ5, gMQ6, gMQ7, gMQ8, gMQ9, gMQ10, gMQ11, gMQ12, gMQ13, gMQ14, gMQ15, gMQ16, gMQ17, gMQ18, gMQ19, gMQ20, gMQ21, gMQ22, gMQ23, gMQ24, gMQ25, gMQ26, gMQ27, gMQ28, gMQ29, gMQ30
  2.  
  3. on mouseDown
  4.   fileIOobject = new(xtra("fileIO"))
  5.   filePath = fileIOobject.displayOpen()
  6.   varFilePath = filePath
  7.   fileIOobject.openFile(filePath, 0)
  8.   varTextString = fileIOobject.readFile()
  9.   i = 1
  10.   repeat while i <= 11
  11.     tempList = getAt(varRateQuestionList, i)
  12.     tempList2 = getAt(varRateQuestionList, i + 1)
  13.     varStartPos = offset(getAt(tempList, 1), varTextString)
  14.     varEndPos = offset(getAt(tempList2, 1), varTextString)
  15.     if varStartPos > 0 then
  16.       member(getAt(tempList, 2)).text = chars(varTextString, varStartPos + length(getAt(tempList, 1)), varEndPos - 6)
  17.     end if
  18.     i = 1 + i
  19.   end repeat
  20.   tempList = EMPTY
  21.   tempList2 = EMPTY
  22.   varStartPos = EMPTY
  23.   varEndPos = EMPTY
  24.   i = 1
  25.   repeat while i <= 11
  26.     tempList = getAt(varMakeQuestionList, i)
  27.     tempList2 = getAt(varMakeQuestionList, i + 1)
  28.     varStartPos = offset(getAt(tempList, 1), varTextString)
  29.     varEndPos = offset(getAt(tempList2, 1), varTextString)
  30.     if varStartPos > 0 then
  31.       member(getAt(tempList, 2)).text = chars(varTextString, varStartPos + length(getAt(tempList, 1)), varEndPos - 6)
  32.     end if
  33.     i = 1 + i
  34.   end repeat
  35.   varStartPos = EMPTY
  36.   varEndPos = EMPTY
  37.   varStartPos = offset("Taken from Speech 1.", varTextString)
  38.   varEndPos = varStartPos + 500
  39.   if varStartPos > 0 then
  40.     member("taketxtfld").text = chars(varTextString, varStartPos + 20, varEndPos - 6)
  41.   end if
  42.   fileIOobject.closeFile()
  43.   fileIOobject = VOID
  44.   if length(varFilePath) > 0 then
  45.     go(label(string(varGoingTo)))
  46.   end if
  47. end
  48.